World data

Map

New cases per million (7 day average): Today

Change in 7 day rolling average

Cases

Deaths

Top 20 countries

New cases heatmap by day and country

New deaths heatmap by day and country

New cases by continent

Asia

Europe

North America

South America

Africa

Oceania

New deaths by continent

Asia

Europe

North America

South America

Africa

Oceania

Cumalative Cases

Growth rate

Cumulative Deaths

Growth rate

Cases and deaths

Recent trend

median_new_deaths_to_cases <- covid %>%
  filter(date == as.Date(date_today, format = "%d/%m/%Y")) %>%
  filter(location != "World" & location != "International") %>%
  filter(new_cases_7 > 100 & new_deaths_7 > 0.5) %>%
  select(new_deaths_to_cases, new_cases_7_pop) %>%
  mutate(new_deaths_to_cases = median(new_deaths_to_cases, na.rm = TRUE),
         new_cases_7_pop = median(new_cases_7_pop, na.rm = TRUE))

median_new_deaths_to_cases <- median_new_deaths_to_cases[1, ]
  
ggplotly(
covid %>%
  filter(location != "World" & location != "International") %>%
  filter(new_cases_7 > 100 & new_deaths_7 > 0.5) %>%
  filter(date == as.Date(date_today, format = "%d/%m/%Y")) %>%
  mutate(new_deaths_to_cases = new_deaths_7/new_cases_7) %>%
  ggplot(aes(x = new_cases_7_pop, y = new_deaths_to_cases)) + 
  geom_point(aes(colour = new_deaths_to_cases, label = location)) +
  scale_colour_gradient2(midpoint=median_new_deaths_to_cases$new_deaths_to_cases, low="green", high="red") +
  scale_x_log10() +
  scale_y_log10(label = percent_format()) +
  geom_vline(xintercept = median_new_deaths_to_cases$new_cases_7_pop, linetype = "dashed", size = 0.2) +
  geom_hline(yintercept = median_new_deaths_to_cases$new_deaths_to_cases, linetype = "dashed", size = 0.2) +
  geom_text(aes(label = location), size = 2, hjust= -0.2) +
  annotate(geom = "text", x = 400, y = 0.15, label = "don't test enough!", hjust = 0, vjust = 1, size = 3) +
  annotate(geom = "text", x = 400, y = 0.0025, label = "virus present, but good testing", hjust = 0, vjust = 1, size = 3) +
  annotate(geom = "text", x = 5, y = 0.0025, label = "good testing, low virus presence", hjust = 0, vjust = 1, size = 3) +
  annotate(geom = "text", x = 4, y = 0.15, label = "low testing, but okay?", hjust = 0, vjust = 1, size = 3) +
  theme_dark() +
  labs(title = "New deaths to cases ratio", x = "New cases per million (log)", y = "New deaths to cases ratio (log)", colour = "New deaths 
to cases")
)

Cumulative Scatter plot

Case Fatality rates

Tests per thousand

Some missing test data